% Analysis of active learning data
% from Kvam (2000)
%
% trad = before and after for traditional learning class
%act = before and after for active learning class
%
n0=1000;
trad1=[18 14 14 18 18 15 18 18 18 9 15 12 17 18 15 13 17 18 14 13 16 14 15]';
trad2=[11 13 6 16 14 12 17 16 13 1 10 6 14 6 14 7 14 12 7 6 11 8 13]';
act1=[14 15 18 16 17 12 17 15 17 14 17 13 15 18 14]';
act2=[14 10 11 8 17 9 11 13 12 13 14 11 11 15 9]';
trad=[trad1 trad2];
act=[act1 act2];
r=zeros(n0,1);
p=zeros(n0,1);
b=zeros(n0,1);
for i=1:n0
b(i)=(i-(n0/2))/(n0/2);
[r0 z0 p0]=spear(act1,act2-b(i)*act1);
r(i)=r0;
p(i)=p0;
end